Option Explicit On
Option Strict On

Imports System.Collections.Generic
Imports TreeCreeper01Interfaces


Public Class cPlantListTaxonomicContrast
    Implements TreeCreeper01Interfaces.IPlantListTaxonomicContrast

    Private pNeighbourhoodDiversityContrastList As List(Of INeighbourhoodDiversityContrast)
    Private pTaxonomicContrast As Double

    Public Sub New()
        pNeighbourhoodDiversityContrastList = New List(Of INeighbourhoodDiversityContrast)
        pTaxonomicContrast = 0
    End Sub

    Public ReadOnly Property NeighbourhoodDiversityContrastList() As System.Collections.Generic.List(Of TreeCreeper01Interfaces.INeighbourhoodDiversityContrast) Implements TreeCreeper01Interfaces.IPlantListTaxonomicContrast.NeighbourhoodDiversityContrastList
        Get
            Return pNeighbourhoodDiversityContrastList
        End Get
    End Property

    Public Property TaxonomicContrast() As Double Implements TreeCreeper01Interfaces.IPlantListTaxonomicContrast.TaxonomicContrast
        Get
            Return pTaxonomicContrast
        End Get
        Set(ByVal value As Double)
            pTaxonomicContrast = value
        End Set
    End Property

End Class
